home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / education / e142.dms / in.adf / title.amos / title.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-05-28  |  2.0 KB  |  32 lines

  1. Global MK,MZ
  2. HZPHQK
  3. Procedure HZPHQK
  4.    Trap Reserve As Data 12,10000000
  5.    Track Play 3 : Colour Back $0 : Unpack 10 To 0 : Colour 17,$F0 : Colour 18,$F0 : Colour 19,$F0
  6.    Flash Off : Curs Off : Paper 0 : Pen 3 : Reserve Zone 4 : Wait Vbl : Limit Mouse 
  7.    Set Zone 1,238,17 To 317,38
  8.    Set Zone 2,238,51 To 317,71
  9.    Set Zone 3,238,85 To 317,105
  10.    Set Zone 4,238,121 To 317,140
  11.    TX$=TX$+"                                KIDS DISK discs are subscriber-ware.  If you would like some more and you are not on my mailing list keep reading.....         "
  12.    TX$=TX$+"    This is KIDS DISK 5.   It was created with AMOS Professional V2.00..   You may make and distribute copies of this disc providing the contents are not changed and it is supplied FREE of charge.  "
  13.    TX$=TX$+"  It is yet another feeble collection of half baked, hare brained ideas that may be worth developing further - let me know what you think......   "
  14.    TX$=TX$+" Click a button on the right to load a programme.  Once the programme has started you will find the instructions.    "
  15.    TX$=TX$+"   Why not join the parents and schools who are already on the Kids Disk mailing list?     You can get the next 5 KIDS DISK discs by sending ï¿½5 to Duncan Moran  24 First Avenue  Colwyn Bay  Clwyd  LL28 4DQ. "
  16.    TX$=TX$+"    Your comments on these or any other programmes for children are most welcome.            Good tune isn't it.................NOT!         "
  17.    MK=0 : POS=1 : Curs Off : X Mouse=403 : Y Mouse=196
  18.    Do 
  19.       Add POS,1,1 To Len(TX$)
  20.       Pen 1 : Locate 2,20 : PR$=Mid$(TX$,POS,8) : Print PR$; : Pen 2 : PHZYXQW : Exit If MK>0 and MZ>0
  21.       PR$=Mid$(TX$,POS+8,11) : Print PR$; : Pen 3 : PHZYXQW : Exit If MK>0 and MZ>0
  22.       PR$=Mid$(TX$,POS+19,8) : Print PR$; : Wait 8 : PHZYXQW : Exit If MK>0 and MZ>0
  23.    Loop 
  24.    TX$="" : Cls : Track Stop : If MZ<4 Then Paste Icon 80,50,1
  25.    If MZ=4 Then End 
  26.    If MZ=3 Then Run "Kids-5:coins2.amos"
  27.    If MZ=2 Then Run "Kids-5:vowel.amos"
  28.    If MZ=1 Then Run "Kids-5:robo.amos"
  29. End Proc
  30. Procedure PHZYXQW
  31.    MK=Mouse Key : MZ=Mouse Zone
  32. End Proc